home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / misc_pto / mcedit10 / black.pas next >
Pascal/Delphi Source File  |  1991-11-30  |  2KB  |  54 lines
  1. PROCEDURE BlackMouse;
  2.  
  3. var
  4.   Blackmasks : array[0..1,0..15] of word;
  5.   Regs : Registers;
  6.  
  7. BEGIN
  8.  
  9. { Screen Mask }
  10.  
  11.   Blackmasks[0,0] := $9FFF;    {1001111111111111}
  12.   Blackmasks[0,1] := $8FFF;    {1000111111111111}
  13.   Blackmasks[0,2] := $87FF;    {1000011111111111}
  14.   Blackmasks[0,3] := $83FF;    {1000001111111111}
  15.   Blackmasks[0,4] := $81FF;    {1000000111111111}
  16.   Blackmasks[0,5] := $80FF;    {1000000011111111}
  17.   Blackmasks[0,6] := $807F;    {1000000001111111}
  18.   Blackmasks[0,7] := $803F;    {1000000000111111}
  19.   Blackmasks[0,8] := $801F;    {1000000000011111}
  20.   Blackmasks[0,9] := $800F;    {1000000000001111}
  21.   Blackmasks[0,10] := $80FF;   {1000000011111111}
  22.   Blackmasks[0,11] := $887F;   {1000100001111111}
  23.   Blackmasks[0,12] := $987F;   {1001100001111111}
  24.   Blackmasks[0,13] := $FC3F;   {1111110000111111}
  25.   Blackmasks[0,14] := $FC3F;   {1111110000111111}
  26.   Blackmasks[0,15] := $FE3F;   {1111111000111111}
  27.  
  28. { Cursor Mask }
  29.  
  30.   Blackmasks[1,0] := $6000;    {0110000000000000}
  31.   Blackmasks[1,1] := $5000;    {0101000000000000}
  32.   Blackmasks[1,2] := $4800;    {0100100000000000}
  33.   Blackmasks[1,3] := $4400;    {0100010000000000}
  34.   Blackmasks[1,4] := $4200;    {0100001000000000}
  35.   Blackmasks[1,5] := $4100;    {0100000100000000}
  36.   Blackmasks[1,6] := $4080;    {0100000010000000}
  37.   Blackmasks[1,7] := $4040;    {0100000001000000}
  38.   Blackmasks[1,8] := $4020;    {0100000000100000}
  39.   Blackmasks[1,9] := $41F0;    {0100000111110000}
  40.   Blackmasks[1,10] := $4900;   {0100100100000000}
  41.   Blackmasks[1,11] := $5480;   {0101010010000000}
  42.   Blackmasks[1,12] := $6480;   {0110010010000000}
  43.   Blackmasks[1,13] := $0240;   {0000001001000000}
  44.   Blackmasks[1,14] := $0240;   {0000001001000000}
  45.   Blackmasks[1,15] := $01C0;   {0000000111000000}
  46.   regs.AX := 9;
  47.   regs.BX := 1;
  48.   regs.CX := 0;
  49.   regs.DX := ofs(Blackmasks);
  50.   regs.ES := seg(Blackmasks);
  51.   Intr(51,Regs);
  52. end;
  53. 
  54.